home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049b.dms / 049b.adf / MORE_SOURCE_CODE / Digi_Clock.AMOS / Digi_Clock.amosSourceCode < prev    next >
AMOS Source Code  |  1992-02-26  |  2KB  |  74 lines
  1. Rem
  2. Rem Runs a clock in the top right corner using bobs running under amal.
  3. Rem Stops running after 60 seconds.
  4. Rem
  5. Rem DAVID PICKIN 
  6. Rem
  7. Curs Off : Cls 0
  8. Load "Clock.abk"
  9. Colour 15,$FFF
  10. Rem Clock
  11. ZT$="Let RI=0 ; Let A=1 ;"
  12. ZT$=ZT$+"A: Let A=1+RI ;"
  13. ZT$=ZT$+"Jump A ;"
  14. Rem
  15. ZH$="Let RH=0 ; Let A=1 ;"
  16. ZH$=ZH$+"A: Let A=1+RH ;"
  17. ZH$=ZH$+"Jump A ;"
  18. Rem
  19. Z1$="Let RF=0 ; Let A=1 ;"
  20. Z1$=Z1$+"A: Let A=1+RF ;"
  21. Z1$=Z1$+"Jump A ;"
  22. Rem
  23. Z0$="Let RG=0 ; Let A=1 ;"
  24. Z0$=Z0$+"A: Let A=1+RG ;"
  25. Z0$=Z0$+"Jump A ;"
  26. Rem
  27. Rem * clock on *   
  28.  Bob 20,250,8,1 : Channel 7 To Bob 20 : Amal 7,Z1$
  29.  Bob 21,260,8,1 : Channel 8 To Bob 21 : Amal 8,Z0$
  30. Rem T&H
  31.  Bob 22,276,8,1 : Channel 9 To Bob 22 : Amal 9,ZT$
  32.  Bob 23,286,8,1 : Channel 10 To Bob 23 : Amal 10,ZH$
  33.  Bob 24,268,8,11
  34. Timer=0 : VV#=0
  35. Double Buffer 
  36. Amal On 
  37. Rem
  38. Do 
  39.    Synchro 
  40.    Rem * clock *
  41.    Rem If Amreg(1)=1 or X Bob(1)>89 Then Goto JKU 
  42.    VV#=Timer : VV#=VV#/50 : Rem seconds  
  43.    C=Abs(VV#)
  44.    If C>59 Then Goto QIUT : Rem too long over a minute 
  45.    If C<10 : Amreg(6)=C : C2=C : End If : Rem  
  46.    If C>9
  47.       C1=C/10 : C1=Abs(C1) : Amreg(5)=C1
  48.       C2=(C-(C1*10)) : Amreg(6)=C2
  49.    End If 
  50.    A=Abs(VV#) : A#=(VV#-A)*10 : A=Abs(A#) : Amreg(8)=A : Rem tenths 
  51.    B=Abs(VV#) : B#=(VV#-B)*10 : B=Abs(B#) : B#=(B#-B)*10 : B=Abs(B#) : Amreg(7)=B : Rem Hundreths  
  52.    JKU:
  53. If C=10 Then Ink 15,0 : Text 120,100,"Hello AVE"
  54. If Mouse Key=2 Then Goto QIUT
  55. Loop 
  56. QIUT:
  57.    Rem * clock *
  58.    M1$=""
  59.    If C1>0 : M1$=Right$(Str$(C1),1) : End If 
  60.    M2$=Right$(Str$(C2),1)
  61.    T$=Right$(Str$(A),1) : H$=Right$(Str$(B),1)
  62.    T$=M1$+M2$+"."+T$+H$
  63.  Rem  I=I Bob(18) 
  64.    Amal Off : Rem Bob Off  
  65.    Rem
  66. QT:
  67. Rem Screen Open 0,320,256,32,Lowres : Rem Remove Double Buffer   
  68.  Palette $0,$111,$222,$333,$444,$555,$666,$777,$888,$999,$AAA,$BBB,$CCC,$DDD,$EEE,$FFF,$222,$777
  69.  Cls 0 : Flash Off : Curs Off : Ink 0 : Paint 2,2 : Colour 3,$333
  70. VV#=Val(T$)
  71. If GGH=20 : VV#=20 : GGH=0 : End If 
  72. T$=Str$(VV#)
  73. Pen 15 : Paper 0 : Locate 9,20 : Print "Time =";T$;" Seconds"
  74. End